home *** CD-ROM | disk | FTP | other *** search
/ Games of Daze / Infomagic - Games of Daze (Summer 1995) (Disc 1 of 2).iso / x2ftp / msdos / source / swagd-f / findrepl.swg / 0015_SYMTAB2.PAS.pas < prev    next >
Encoding:
Pascal/Delphi Source File  |  1993-05-28  |  3.3 KB  |  109 lines
  1. LARRY HADLEY
  2.  
  3.    Errata: include an "info" Pointer field in the SYMTAB_NODE
  4.    structure in the previous post.
  5.  
  6.    USING THE SYMBOL TABLE - A CROSS REFERENCER
  7.  
  8.    A cross-reference is a listing of a Programs identifiers in
  9.    alphabetical order:
  10.  
  11. Page 1   hello.pas  April 08 1993  19:03
  12.    1 0: Program hello (output);
  13.    2 0: Var i:Integer;
  14.    3 0: begin
  15.    4 0:    For i := 1 to 10 do
  16.    5 0:    begin
  17.    6 0:       WriteLn('Hello world.');
  18.    7 0:    end;
  19.    8 0: end.
  20.  
  21. Cross Reference
  22. ---------------
  23.  
  24. hello               1
  25.  
  26. i                   2    4
  27.  
  28. Integer             2
  29.  
  30. ouput               1
  31.  
  32. Writeln             6
  33.  
  34.   As shown above, alongside each identifier's name are the source
  35.   line numbers that contain the identifier. (This is useful for
  36.   tracking where they're used)
  37.  
  38.   A cross-referencer reads the source File and looks for
  39.   identifiers, using the scanner you've built previously. The first
  40.   time a particular identifier is found, it is inserted in the
  41.   symbol tree along With it's line number. Subsequent appearances of
  42.   the same identifier update the symbol tree With an additional line
  43.   number appended to the list of line numbers.
  44.  
  45.   As soon as the Program is completely scanned, all the identifier
  46.   names and their line numbers are printed.
  47.  
  48.   Use the INFO field of SYMTAB_NODE to point to a LINKED LIST of
  49.   line numbers.
  50.  
  51.   The main loop should scan For tokens Until it finds a period, or
  52.   Exits With an "Unexpected end of File" error. For each identifier,
  53.   search the symbol table to see if their were any previous
  54.   instances of the identifier. If it is not found, then this must be
  55.   the first time it is used so we can call the "enter" Function to
  56.   create a new node.
  57.  
  58.   Then, whether a new node was actually created or not, we call a
  59.   Function to add the line number to the queue of line numbers
  60.   attached to the node's "info" field. Finally, when the scanner
  61.   loop terminates, we call a printing Function which traverses the
  62.   tree from left to right to print the sorted tree - and all the
  63.   line numbers in the linked list attached to each node.
  64.  
  65.   Note that a recursive call to itself is probably the easiest way
  66.   to do this, since _all_ the nodes of the tree are being accessed,
  67.   not just one.
  68.  
  69.   Types you will need:
  70.  
  71. Type
  72.   pLINENUMS = ^LINENUM_NODE;
  73.   LINENUM_NODE = Record
  74.      next     :pLINENUMS;
  75.      line     :Integer;
  76.   end;
  77.  
  78.   pLINE_HEADER = ^LINENUM_HDR;
  79.   LINENUM_HDR = Record
  80.      first, last :pLINENUMS;
  81.   end;
  82.  
  83.   EXCERCISE #1
  84.  
  85.   Write a cross referencer, as above. Text it With an assortment of
  86.   pascal sourceFiles.
  87.  
  88.   ADVANCED EXCERCISE
  89.  
  90.   Note that the symbol table above converts all identifier names to
  91.   lower case. What would be needed to reWrite the scanner/xref
  92.   Program to preserve case? ReWrite the xref Program to do so. (note
  93.   that Pascal compilers are Case insensitive, so the symbol table -
  94.  
  95.   For compatibility - must compare lower case)
  96.  
  97.   "BRAIN TEASERS"
  98.  
  99.   1. What would be necessary to reWrite the symbol table as a hash
  100.      table?
  101.  
  102.   2. If an identifier appears more than once in a line, line
  103.      numbers will appear more than once in the listing. Fix xref to
  104.      recognize duplicate occurences of line numbers in node-lists.
  105.  
  106.   -----------------------------------------------------------------
  107.  
  108.   Next: Pascal source cruncher.
  109.